Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    Dim myCnt As Control
    For Each myCnt In Me.Controls
        Select Case TypeName(myCnt)
            Case "TextBox"
                myCnt.Value = ""
            Case "Listbox", "ComboBox"
                myCnt.ListIndex = -1
            Case "ToggleButton", "OptionButton", "CheckBox"
                myCnt.Value = False
            Case "ScrollBar", "SpinButton"
                myCnt.Value = myCnt.Min
            Case "TabStrip", "MultiPage"
                myCnt.Value = 0
        End Select
    Next
End Sub
